home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / share / share.txt < prev   
Encoding:
Text File  |  1995-02-21  |  2.5 KB  |  76 lines
  1. 'This file replaces the ADDSHAREIFNEEDED in the Setup1.BAS file 
  2. 'This enables the install program to insert the "C:\DOS\SHARE.EXE /L:500"
  3. 'into the BEGGINING of an AUTOEXEC.BAT  (If placed at the end it MAY come after
  4. 'a WIN.COM statement (oops, this wouldn't work too well)  So...  My partner and I
  5. 'after hours of arquing came up with this answer.  It's not glamorous...  but it works.
  6. 'Peace,  James Wj Snyder & Dave Murdoch 1994
  7.  
  8.  
  9. Sub AddShareIfNeeded (SharePath$, ShareFile$)
  10.  On Error GoTo ShareError
  11.     Dim str1 As String
  12.     str1 = "C:\DOS\SHARE.EXE /L:500"
  13.  
  14.     fh% = FreeFile
  15.     Open "C:\AUTOEXEC.BAT" For Input As fh%
  16.     fFound% = 0
  17.     While fFound% Or EOF(fh%)
  18.         Line Input #fh%, Temp1$
  19.         If InStr(1, UCase$(Temp1$), "REM") = 0 And InStr(1, Temp1$, ";") = 0 And InStr(1, UCase$(Temp1$), "SHARE") > 0 Then
  20.            fFound% = True
  21.         End If
  22.     Wend
  23.     
  24.     If fFound% = False Then
  25.         Message% = MsgBox("SHARE.EXE is needed in your AUTOEXEC.BAT - Would you like to have this done automatically?", 36, "Update AUTOEXEC?")
  26.         If Message% = 7 Then
  27.         MsgBox "SHARE.EXE, VSHARE.386, Windows for Workgroups, or Windows95 is needed for this program.", 64, "SHARE NEEDED"
  28.         Exit Sub
  29.         End If
  30.     End If
  31.  
  32.     On Error GoTo ErrHandler
  33.     Close '#fh%
  34.     FileCopy "c:\AUTOEXEC.BAT", "C:\AUTOEXEC.SRS"   ' Copy first file
  35.         
  36.  
  37.     '-------------------------------------------------------------------
  38.     On Error Resume Next
  39.     Kill "C:\AUTOEXEC.TMP"  'This deletes a POSSABLE earlier version named this way
  40.     
  41.     On Error Resume Next
  42.     Kill "C:\AUTOEXEC.SRS"
  43.     Open "C:\AUTOEXEC.BAT" For Input As fh%
  44.     fh3% = FreeFile
  45.     Open "C:\AUTOEXEC.TMP" For Append As fh3%
  46.        
  47.         Print #fh3%, str1
  48.         While Not EOF(fh%)
  49.             Line Input #fh%, Temp1$
  50.             Print #fh3%, Temp1$
  51.         Wend
  52.         
  53.         Close
  54.           
  55.         
  56.         FileCopy "c:\autoexec.tmp", "c:\AUTOEXEC.BAT"   ' Copy file to destination.
  57.         Message% = MsgBox("Your original AUTOEXEC.BAT file has been copied to AUTOEXEC.SRS.", 16, "INFORMATION")
  58.         Message% = MsgBox("To Run AudioBase you need to reboot your computer first.", 16, "REBOOT SYSTEM")
  59.         
  60.         'Clean up after ourselves
  61.         Kill "C:\AUTOEXEC.TMP"
  62.  
  63.     Exit Sub
  64.  
  65.  
  66.  
  67. ShareError:
  68.     Close #fh%, #fh2%, #fh3%
  69.     Exit Sub
  70. ErrHandler:
  71.     If Err = 55 Then    ' File already open.
  72.         MsgBox "Cannot copy an open file. Close it and try again."
  73.     End If
  74.     Resume Next
  75. End Sub
  76.